object frUST_MNOG_PO_ABON: TfrUST_MNOG_PO_ABON
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  ClientHeight = 196
  ClientWidth = 379
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pEdit: TPanel
    Left = 0
    Top = 0
    Width = 379
    Height = 89
    Align = alTop
    TabOrder = 0
    object labText: TLabel
      Left = 14
      Top = 17
      Width = 47
      Height = 16
      Caption = 'labText'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object btYES: TcxButton
      Left = 94
      Top = 58
      Width = 75
      Height = 25
      Action = YES
      TabOrder = 0
    end
    object btNO: TcxButton
      Left = 175
      Top = 58
      Width = 75
      Height = 25
      Action = NO
      TabOrder = 1
    end
  end
  object pTable: TPanel
    Left = 0
    Top = 89
    Width = 379
    Height = 107
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      AlignWithMargins = True
      Left = 4
      Top = 4
      Width = 371
      Height = 99
      Align = alClient
      DataSource = dsUST_PR_MNOG
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'NOM_ABON'
          Title.Caption = #1051#1080#1094#1077#1074#1086#1081
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FIO'
          Title.Caption = #1060#1048#1054
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ADRES'
          Title.Caption = #1040#1076#1088#1077#1089
          Visible = True
        end>
    end
  end
  object ActionList1: TActionList
    Left = 339
    Top = 12
    object YES: TAction
      Caption = #1044#1072
      OnExecute = YESExecute
    end
    object NO: TAction
      Caption = #1053#1077#1090
      OnExecute = NOExecute
    end
    object FORM_CLOSE: TAction
      ShortCut = 27
      OnExecute = FORM_CLOSEExecute
    end
  end
  object dsetUST_PR_MNOG: TIBCQuery
    SQL.Strings = (
      
        'select u.nom_abon, u.fio, u.adres from ust_mnogoetag(:NOM,:PR_MN' +
        'OG) u')
    Left = 266
    Top = 2
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'PR_MNOG'
      end>
  end
  object dsUST_PR_MNOG: TIBCDataSource
    DataSet = dsetUST_PR_MNOG
    Left = 299
  end
end
